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Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

DIGITAL EQUI PRENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FUR 


I$ NISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
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Author Brian Porter Creation date 18-NOV-1981 
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Functional description: 


This module displays massbus adapter interrupts which occur 
on behalf of itself. 


Modified by: 


v03-003 SARO147 Sharon A. Reynolds, 5-0c t-1983 
Added an SYE update that makes the register heralds 
generic and adds support for 11/7xx. 


v03-002 SAR0081 Sharon A, Reynolds, 20-Jun-1983 
Changed the carriage control in the ‘format’ statements 
for use with ERF. 


v03-001 SAROOSS Sharon A. Reynolds, 13-Jun-1983 
Removed brief/cryptic support. 
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Subroutine MBA_INTERRUPTS (Lun,option) 
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include ‘src$:msghdr.for /nolist’ 
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character*! option 


if ¢ 
! i teSontevtes 8 en00t nds té) -eq. 255 
.or 
LibSextzv(24,8,emb$l_hd_sid) .eq. 1 
1 


or 
CIBSEXTZV(24,8,emb$l_hd_sid) .£0. 4 
1) then 


call rh780_interrupt (lun) 
endif 


a >) 2 a 4) 2s > 9 ss 9 bs 4 ns ss a i  s 


5 c 
c For future expansion the IF-THEN-ELSE should be 
7 c extended here. 
c 
9 
40 endif 
41 
¢g return 
4 
44 end 


if (option .eq. ‘'S') then 


= 
o 


FRRRRRRRRRRRKKKRKRERRPRRPRPER 


FRRLLKEKLELK 


MBA_INTERRUPTS 


PROGRAM SECTIONS 


Total Space Allocated 


ENTRY POINTS 
Address Type Name 
0-00000000 


VARIABLES 
Address Type Name 
-00000000 I*4 EMBSL_H 
“O000000E I*2 EMBSW"H 
AP-00000008@ CHAR OPTION 
ARRAYS 
Address Type Name 


“00000000 L*1 
-00000006 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 
1*4 LIBSEXTZV 


MBA_INTERRUPTS 


510 
“ERRSEQ 


EMB 
I1*4 EMBSQ_HD_TIME 


VAX=11 FORTRAN 


irden-1964 00:07:23 


DISKSVMSMASTER: 
Bytes Attributes 
8 PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
3 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
51 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
632 


Address Type Name 


3-00000004 ie om, HD_ENTRY 
AP-000000048 L*1 


Bytes Dimensions 
51 (0:511) 
g (33 


Type Name 
RH780_INTERRUPT 
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This routine displays the massbus interrupt error log entry for the 
117780. The format of the error log record is as ’ , 
ollows. 
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: diagnostic register : 
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Subroutine RH780_INTERRUPT (Lun) 


sssssese 


rs 


include ‘src$:msghdr.for /nolist' 


0096 
5 byte Lun 
integer*4 rh780_control_register (6) \ 
8 integers4 diagnostic_register 
integer*4 interrupt_pc 5 
1 integers4 interrupt_psl 05 
101 integers4 adapter_tr 05 
1 : integere4 dummy_variable 82 
103 integere4 compress4 2 
\ 5 logical#1 diagnost ic_mode 03 
1 equivalence Cemb ( $} 1700 control cogisser) 82 
iS equivalence Cemb ( Bi oS tognest ic register) 5) 
1 equivalence (emb(40) ,adapter_trd 5. 
110 equivalence (emb(44), interrupt_pc) 5 
11g equivalence (emb(48), interrupt_psl) 3 
11 5 
114 call fretof (lun) 82 
115 5. 
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$-Sep- 1984 9:84 :80 DLeKSVMSMASTER: FER SRCIMBAINT.FOR:1 2% . 


call header (lun) 


diagnostic_mode = .false. 


if (LibSextzv(3,1,rh780_control_register(2)) .eq. 1) 
1 diagnostic_mode = .true. 


if (LibSextzv(0,4,diagnostic_register) .ne. 0) diagnostic_mode = 
call Linchk (lun,2) 


write(lun,5) interrupt pS 
format(/' ',t8,"ERROR PC',t24,28.8) 


if (.not. diagnostic_mode) then 
call vaxpsl (lun,interrupt_psl) 
call Linchk (lun,2) 


write(lun,10) ofapter tr 
format(/" *,t8,"ADAPTER TR# ',i<compress4 (adapter_tr)>,'.') 


call rh780_control_registers (lun,rh780_control_register, 
5 may .verientes 
else 


call Linchk (lun,11) 


write(lun,15) interrupt_psl,adapter_tr, 

1 (rh780_control register ts i : 1,2) 

format(/* ',t8, ERROR PSL',t24,28.8,//, 

1 tB,"ADAPTER TR#_',i<compress4 (adapter_tr)>,'.'.//, 
1 t8,°"'RH cst S26 -z6, ofe 

1 t8,""'RH" CR',t24,28.8) 


if (LibSextzv(3,1,rh780_control_register(2)) .eq. 1) then 
call Linchk (lun,1) 


write(lun, 30) 
endif 


write(lun,20) (rh780 control_register(i),i = 3,5) 
format(’ *,t8,°"RH' SR*,t24,28.8,/, 

1 t8,°"'RH" VAR’. £24. 28.8 ys 

1 tB,°"RH BCR',t24,28.85 

endif 


call linchk (lun,1) 


write(lun,25) diagnostic_register 
format? eB, RAS DR f24°28.8) 


call logger (lun,'*’'RH"’ INTERRUPT’) 
true. 


if (LibSextzv(0,4,diagnostic_register) .ne. 0) then 
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RH780_ INTERRUPT 16 VAX=11 FORTRAN 


“$0138 0:91:83 


1 

fe call Linchk (lun,1) 

1% write(lun,30) 

Af 30 format(’ *,t40,"DIAGNOSTIC MODE') 
178 endif 

130 return 

181 en 


PROGRAM SECTIONS 


DISKSVMSMASTER: 


Name Bytes Attributes 
0 SCODE 518 PIC CON REL LCL SHR RD NOWRT LONG 
1 SPDATA 276 PIC CON REL LCL SHR N RD NOWRT LONG 
¢ SLOCAL 144 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB 512 PIC OVR REL GBL SHR NO RD WRT LONG 
Total Space Allocated 1450 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


00000028 1*4 
~00000094 1%4 


ARRAYS 


Name 
RH780_ INTERRUPT 


ADAPTER_T 

DIAGNOSTIC REGISTER 

EMBSL 

te WD ae 
ERRUPT_P 


REGISTER 


Name 
DIAGNOSTIC_MODE 
DUMMY_VARIABLE 
EMBSW_HD_ENTRY 
I*4 ] 

1*4 INTERRUPT_PSL 


Address Type 


-00000000 L*1 
00000004 14 


$-50000080 


Bytes Dimensions 


512 (0:511) 
8 (2) 
(6) 
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LABELS 
Address Label Address Label Address Label Address Label Address Label Address Label 
1-00000027 5° 1-0000003D 10° 1-0000005B 15° 1-00000081 20° 1=000000E9 25° 1-000000FD 30° 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name Type Name 
1*4 COMPRESS FRCTOF HEADER 
1*4 LiBsextZv LINCHK LOGGER 

80_CONTROL_REGISTERS VAXPSL 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:MBAINT/OBJ=0BJ$:MBAINT MSRCS$:MBAINT 
/CHECK= (NOBOUNDS , OVERFLOW, NOUNDERF LOW) 
§, TRACEBACK) 
PR DE ,MAP 
7777 /NOG_FLOATING /14 SOPTIAIZE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


un Time g-3 seconds 
they fees -40 seconds 
Page Faults: 144 
Dynamic Memory: 179 pages 
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